home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b2.d64
/
exe112
< prev
next >
Wrap
Text File
|
2007-02-28
|
925b
|
33 lines
0010 DIM NAME$ OF 25, STREET$ OF 20
0020 DIM TOWN$ OF 20, CODE$ OF 10
0030 PRINT CHR$(147) //CLEAR SCREEN
0040 FOR I:=1 TO 3 DO PRINT //3 DOWN
0050 PRINT "NAME..............",
0060 INPUT NAME$
0070 PRINT "HOUSE NO..........",
0080 INPUT HOUSENO
0090 PRINT "STREET............",
0100 INPUT STREET$
0110 PRINT "TOWN..............",
0120 INPUT TOWN$
0130 PRINT "POST CODE.........",
0140 INPUT CODE$
0150 //
0160 PRINT CHR$(147) //CLEAR SCREEN
0170 FOR I:=1 TO 3 DO PRINT //3 DOWN
0180 PRINT " TONDER, MAY 6 1981"
0190 PRINT
0200 PRINT NAME$
0210 PRINT HOUSENO," ",STREET$
0220 PRINT TOWN$," ",CODE$
0230 PRINT
0240 PRINT "DEAR SIR/MADAM,"
0250 PRINT
0260 PRINT "ALLOW US TO OFFER YOU OUR FINE"
0270 PRINT "SALT-CURED HAM AT THE VERY SPECIAL"
0280 PRINT "PRICE OF 100 DOLLAR PER KG."
0290 PRINT
0300 PRINT " SINCERELY,"
0310 PRINT " ALFRED BACON,"
0320 PRINT " BUTCHER."